home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / fpc09905c.lha / fpc / inc / mathh.inc < prev    next >
Text File  |  1998-09-21  |  3KB  |  79 lines
  1. {
  2.     $Id: mathh.inc,v 1.5 1998/08/11 21:39:05 peter Exp $
  3.     This file is part of the Free Pascal run time library.
  4.     Copyright (c) 1993,97 by Florian Klaempfl,
  5.     member of the Free Pascal development team
  6.  
  7.     See the file COPYING.FPC, included in this distribution,
  8.     for details about the copyright.
  9.  
  10.     This program is distributed in the hope that it will be useful,
  11.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13.  
  14.  **********************************************************************}
  15.  
  16.    { declarations of the math routines }
  17.  
  18. {$ifdef DEFAULT_EXTENDED}
  19.     function abs(d : extended) : extended;
  20.     function arctan(d : extended) : extended;
  21.     function cos(d : extended) : extended;
  22.     function exp(d : extended) : extended;
  23.     function frac(d : extended) : extended;
  24.     function int(d : extended) : extended;
  25.     function ln(d : extended) : extended;
  26.     function pi : extended;
  27.     function round(d : extended) : longint;
  28.     function sin(d : extended) : extended;
  29.     function sqr(d : extended) : extended;
  30.     function sqrt(d : extended) : extended;
  31.     function trunc(d : extended) : longint;
  32.     function power(bas,expo : extended) : extended;
  33. {$else DEFAULT_EXTENDED}
  34.     function abs(d : real) : real;
  35.     function arctan(d : real) : real;
  36.     function cos(d : real) : real;
  37.     function exp(d : real) : real;
  38.     function frac(d : real) : real;
  39.     function int(d : real) : real;
  40.     function ln(d : real) : real;
  41.     function round(d : real) : longint;
  42.     function sin(d : real) : real;
  43.     function sqr(d : real) : real;
  44.     function sqrt(d : real) : real;
  45.     function trunc(d : real) : longint;
  46.     function power(bas,expo : real) : real;
  47.     function pi : real;
  48. {$endif DEFAULT_EXTENDED}
  49.  
  50.     function power(bas,expo : longint) : longint;
  51.  
  52. {$ifdef _SUPPORT_FIXED}
  53.     function sqrt(d : fixed) : fixed;
  54.     function Round(x: fixed): longint;
  55.     function sqr(d : fixed) : fixed;
  56.     function abs(d : fixed) : fixed;
  57.     function frac(d : fixed) : fixed;
  58.     function trunc(d : fixed) : longint;
  59.     function int(d : fixed) : fixed;
  60. {$endif SUPPORT_FIXED}
  61.  
  62. {
  63.   $Log: mathh.inc,v $
  64.   Revision 1.5  1998/08/11 21:39:05  peter
  65.     * splitted default_extended from support_extended
  66.  
  67.   Revision 1.4  1998/08/11 00:05:24  peter
  68.     * $ifdef ver0_99_5 updates
  69.  
  70.   Revision 1.3  1998/08/08 12:28:11  florian
  71.     * a lot small fixes to the extended data type work
  72.  
  73.   Revision 1.2  1998/05/12 10:42:45  peter
  74.     * moved getopts to inc/, all supported OS's need argc,argv exported
  75.     + strpas, strlen are now exported in the systemunit
  76.     * removed logs
  77.     * removed $ifdef ver_above
  78. }
  79.